home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 11 / CU Amiga Magazine's Super CD-ROM 11 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-06].iso / cucd / programming / amoslist / amoslist.mar / 000014_amos-request@svcs1.digex.net_Mon Mar 3 08:18:13 1997.msg < prev    next >
Text File  |  1997-04-01  |  3KB  |  75 lines

  1. Received: from svcs1.digex.net (svcs1.digex.net [204.91.197.224])
  2.     by mail2.access.digex.net (8.8.5/8.8.5) with ESMTP id IAA29353
  3.     for <mcox@access.digex.net>; Mon, 3 Mar 1997 08:18:11 -0500 (EST)
  4. Received: (from daemon@localhost)
  5.     by svcs1.digex.net (8.8.5/8.8.5) id DAA07327
  6.     for amos-out; Mon, 3 Mar 1997 03:03:53 -0500 (EST)
  7. Received: from mail1.access.digex.net (mail1.access.digex.net [205.197.247.2])
  8.     by svcs1.digex.net (8.8.5/8.8.5) with ESMTP id DAA07324
  9.     for <amos-list@svcs1.digex.net>; Mon, 3 Mar 1997 03:03:50 -0500 (EST)
  10. Received: from relay-7.mail.demon.net (relay-7.mail.demon.net [194.217.242.9])
  11.     by mail1.access.digex.net (8.8.5/8.8.5) with SMTP id DAA01383
  12.     for <amos-list@access.digex.net>; Mon, 3 Mar 1997 03:03:48 -0500 (EST)
  13. Received: from mirex.demon.co.uk ([158.152.68.125]) by relay-5.mail.demon.net
  14.            id ad517855; 3 Mar 97 0:28 GMT
  15. Received: by mirex.demon.co.uk (V1.16/Amiga)
  16.     id AA005qk; Mon, 3 Mar 97 00:25:13 GMT
  17. Date: Mon, 3 Mar 97 00:25:13 GMT
  18. Message-Id: <9703030025.AA005qf@mirex.demon.co.uk>
  19. Message-Id: <240ddb66.u8t20e.c13d0-Braneloc@mirex.demon.co.uk>
  20. In-Reply-To: <328.7000T1208T2885@mbox2.swipnet.se>
  21.          (from Reine Johansson <reine.johansson@mbox2.swipnet.se>)
  22.          (at 02 Mar 97 20:08:57 +0100)
  23. Organization: Mirex Software
  24. Reply-To: Braneloc@mirex.demon.co.uk
  25. Website: http://www.mirex.demon.co.uk
  26. MIME-Version: 1.0
  27. Content-Type: text/plain; charset=ISO-8859-1
  28. Content-Transfer-Encoding: 8bit
  29. From: Keith Hill <Braneloc@mirex.demon.co.uk>
  30. To: reine.johansson@mbox2.swipnet.se
  31. Cc: amos-list@access.digex.net
  32. Subject: Re: Systemtime
  33. Status: RO
  34. X-Status: 
  35.  
  36. To the one known as Reine,
  37.  
  38. > How do I get the systemtime in AMOS? Example code _please_
  39.  
  40. See below.
  41.  _   _   _        _     _   _     |  
  42. |_> |_| |_| |\ | |_ |  | | /   |  |  Zik-Zak: "We make everything you need
  43. |_> | \ | | | \| |_ |_ |_| \_  .  |  and you need everything we make."
  44.                                   |  
  45.                     --------------+---------------
  46.                      http://www.mirex.demon.co.uk
  47.  
  48. '************************************* 
  49. '*             Time.AMOS             * 
  50. '*     1992 by Volker Stepprath     * 
  51. '*  Shows the actual time of system  * 
  52. '************************************* 
  53. '
  54. '**** Install buffer ****
  55. '
  56. N$=Space$(12)+Chr$(0)
  57. '
  58. '**** Get time of system ****
  59. '
  60. Dreg(1)=Varptr(N$)
  61. XDATESTAMP=Doscall(-192)
  62. '
  63. '**** Calculate and show time **** 
  64. '
  65. H=Leek(Varptr(N$)+4)
  66. S=Leek(Varptr(N$)+8)/50
  67. M=H mod 60
  68. H=H/60
  69. H$="00" : Right$(H$,Len(Str$(H))-1)=Str$(H)-" "
  70. M$="00" : Right$(M$,Len(Str$(M))-1)=Str$(M)-" "
  71. S$="00" : Right$(S$,Len(Str$(S))-1)=Str$(S)-" "
  72. Print H$+":"+M$+":"+S$
  73. '
  74. End 
  75.